home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / LIST2.TXT < prev    next >
Encoding:
Text File  |  1985-10-09  |  945 b   |  25 lines
  1.  
  2. 10  DATA  "/SCRATCH", "/SCRATCH/MASS", "/SCRATCH/RHODE",
  3.           "/SCRATCH/VERMONT", "/SCRATCH/MASS/NY",
  4.           "/SCRATCH/MASS/NJ", "/SCRATCH/RHODE/PA",
  5.           "/SCRATCH/VERMONT/MAINE" 
  6. 20  DIM A$(40):  D$=CHR$ (4):  ONERR GOTO 100
  7. 30  READ H$:  PRINT D$;"PREFIX ";H$:  PRINT D$;"SAVE TESTFILE"
  8. 40  J=0:  L=INT(40*RND(1))+1:  PRINT:  PRINT:
  9.     PRINT L;" FILES TO BE CREATED":  PRINT 
  10. 50  FOR K=1 TO L:  TY$="":  FOR I=1 TO INT(10*RND(1))+1:
  11.     TY$=TY$+CHR$(65+26*RND(1)):  NEXT:  X=FRE (0)
  12. 60  PRINT K;"  ";H$+"/"+TY$:  PRINT D$;"OPEN "+TY$:
  13.     PRINT D$;"CLOSE "+TY$:  IF RND(1) < .30 THEN J=J+1: A$(J)=TY$
  14. 70  NEXT K
  15. 80  PRINT J;" FILES TO DELETE":  IF J=0 THEN 30
  16. 90  FOR I=1 TO J:  PRINT D$;"DELETE "+A$(I):
  17.     PRINT I;"  ";H$+"/"+A$(I):  NEXT:  GOTO 30
  18. 100 END 
  19.  
  20.  
  21.            A Program to Create a Testing Diskette for
  22.                    the ProDOS Sorting Utility
  23.  
  24.                            Listing #2
  25.